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ttt (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
® 
® 
a 
x 
we 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT GE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
2 
® 
a 
e 
* 
® 
tt 
® 
® 
® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eemPORnT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* eae eeneneeeeneeenneaenennnne 


PARA RRAARASAARALASLRARASLALALARARRALERRSERER RRR REARS RAE R RR RAR ERAS RAR RRR R AAS SE SD 


Fectitty: FAL (DECnet File Access Listener) 
Abstract: This module builds the DAP Attributes and Name messages. 
Environment: VAX/VMS, user mode 
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Author: James A. Krycka, Creation Date: 16-JUN-1977 
Modified By: 
V03-004 JAK0144 J A Krycka 11-APR-1984 
Minor cleanup. 
v03-003 KRM0096 06-Apr-1983 


Modi fied EALSENCODE et to support rename egeratten 
(to use NAM2 for 2nd resultant Name message 


v03-002 KRM0084 Malik 23-Mar-1983 
Add support for STMCE and STMCR formats. 


v03-001 KRM0068 Malik 23-Nov-1982 
Modified FALSENCODE oNAM to support rename operation. 
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FALBLDATT - BUILD DAP ATTRIBUTES MESSAGE 16-SEP-1984 01:38: AX/VMS Macro v04-00 Page | 
yore B00 DECLARATIONS eet 9:78:93 YRAL SRCIFALBLDATT MAR: 1 ° By 
5 «SBTTL DECLARATIONS 
8 3; Include Files: 
0 60 
61 DAPPLGDEF 3; Define DAP prologue symbols 
6 SDAPHORDEF ; Define DAP message header 
000 6 SDAPATTDEF ; Define DAP Attributes message 
000 64 DAPACCDEF ; Define DAP Access message 
000 65 SDAPNAMDEF ; Define DAP Name message 
$38 96 SDEVDEF : Define device characteristics symbols 
6 ABDEF ; Define File Access Block syaseis 
0000 68 $F ALWRKDEF ; Define FAL Work Area symbols 
0000 69 AMDEF : Define Name Block symbols 
0000 70 SXABDEF 3: Define syebots common to all XABs 
4 4 SXABFHCDEF 3; Define File Header Char XAB symbols 
0000 73; 
0000 74 ; Macros: 
0000 12 3 
0000 76; None 
0000 77 3 
0000 78 ; Equated Symbols: 
0000 79 ; 
0000 80 
0000 81 ASSUME DAP$Q_DCODE_FLG EQ 0 
0000 8 ASSUME FAL$Q"FLG EG 0 
0000 8 
0000 84; 
0000 85 ; Own Storage: 
0000 86 ; 
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v04- OME _AT ~3Eb= $82 1 :t6:97 FAL.SRCJFALBLDATT.MAR; 1 3) 
-SBTTL FALSENC 
-PSECT FALSCODE NOSHR,EXE,RD,NOWRT ,BYTE 


"fancttenat Description: 
FALSENCODE_ATT builds the DAP Attributes message. 

; Calling Sequence: 

BSBw FALSENCODE_ATT 


ODE_ATT | 
| 
| 


| 
; Input Parameters: | 
RB Address of FAL work area | 
R9 Address of DAP control block 
R10 Address of FAB 
R11 Address of RAB 
; Implicit Inputs: 
DAP$V_GEQ_V54 | 
DAP$V_GEQ_V56 
DAP$V_GEQ _v70 
DAPSV_VAXOMS 
FAB fields 
FAL$B_ACCFUNC 
FALSB_DATATYPE 
Output Parameters: | 
RO-R7 Destroyed 
Implicit Outputs: 
None 
Completion Codes: | 
None 
Side Effects: | 
} 
| 


None 


Sete Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Se Ge Se Be Ge Se Se Se Ge 


FALSENCODE_ATT:: : Control point 
MOUL #DAPS$K_ATT_MSG,RO ; Get message type value 
BSBW FALSBUTLD_READ ; Construct message header 


+ 

Determine which fields to return as follows: 

(1) always send the ORG, RFM, RAT, MRS, ALQ, DEQ, and FOP fields. | 

(2) send the DATATYPE and BLS fields only if they do not equal their 
default values as defined in the DAP specification. 

(3) send the BKS field only if ORG = REL or IDX; and MRN only if ORG = REL. 


AOAAKAKAAWOOCOOCCOOCOCOSOOOSOSSOSSOSSSSOSSSSCSOSCOOCCOOSOOOCOOCOOOOOOOOOOOO 
PEP FLAW AWW DPDIPINPINIPPININID 3 9 9 I  S 2 QOOTDTOOCOOOCOCOOOOOOOOOOOM@OD --— 
FAR 2 OOD NAMU EWN OOO NAME WIN @ OOO NAME WW O OD NAU EWN OOONOULS WOO 


me a kt et tk et ot ot = ot = = = = = St = = SS SS = 2 2 SS = = = ss —) 2 Ss 
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vOG-000 FALSENCODE_ATT Beep 1984 01:16:57 UPAL.SRCIFALBLDATT MAR; 1 : (3) v04: 
006 145 ; (4) send the FSZ field only if RFM = VFC. 
8 198 ; (5) send the DEV field me if accessing node is VAX/VMS or it is 
6 147; implemented to DAP V5.6 or Later. 
06 198 3 (6) send the LRL, HBK, EBK, FFB, SDN fields if this is not a create 
006 149; function (i.e. Oi an ven or directory function) _.1d the accessing 
0 ? 150 ; node speaks DAP V5.4 or Later. | 
0 13] 3 (7) never send the RUNSYS field. 
ae | 
51 0000186E 8F 00 43 154 MOVL #<<DAPSM_ORG>! = ; Always send ORG, RFM, RAT, MRS, ALQ | 
00D 155 <DAPS$M_RFM>!- : DEQ, and FOP fields 
990 136 <DAP$M_RAT>! = : 
‘+3 <DAPSM_MRS>!- : 
00D 158 <DAPSM~ALQ1>!- : 
000D 159 <DAPSM~DEQ1>/! = ; 
000D 160 <DAPSM_FOP1>!- : 
0000 161 >,R1 : 
01F6 C8 91 O00D 166 CMPB FAL$B_ACCFUNC(R8) ,- ; Default DATATYPE field on 
06 0011 16 #DAPSR_DIR_LI ; directory _list function as | 
0B 13° 0012 164 BEQL $ ; _FALSB_ACCFUNC = 0 
O1F4 C8 91 0014 165 CMPB FAL$B_DATATYPE(R8) ,- ; Branch if DATATYPE = default value 
02 0018 166 #DAPSR_DATATYP_D ; 
04 13 0019 167 BEQL 10$ ; 
0018 168 SSETBIT #DAPSV_DATATYPE,R1 : Send DATATYPE 
3C AA B1 OO1F 169 10$: CMPW FABSW_BLS(R10),- ; Branch if BLS = default value 
0200 8F ba58 170 #DAPSR_BLS_D : 
13 002 171 : 
0027 \e $SSETBIT #DAP$V_BLS,R1 ; Send BLS 
00 1D AA 91 002B 173 208:  CMPB FABSB_ORG(R10) ,AFABSC_SEQ 
04 13 to 174 BEQL 30$ ; 
0081 175 S$SETBIT #DAPSV_BKS,R1 : Send BKS if org = REL or IDX | 
10 11DAA 91 0035 176 30S: CMPB FABSB_ORG(R10) ,#FABSC_REL | 
04 12 #0039 «177 40$ ; 
0038 «4178 SSETBIT #DAPS$V_MRN,R1 ; Send MRN if ORG = REL 
03 1F AA 91 OO3F 179 40$: CMPB FABSB_RFM(R10) ,#FABSC_VFC 
04 12 0043 #180 NEQ 50$ : 
0045 181 SSETBIT #DAP$V_FSZ,R1 3; Send FSZ if RFM = VFC 
04 69 34 =+&£E0 0049 186 50$: BBS #DAPSV_VAXVMS,(R9),60$ ; Branch if partner is VAX/VMS 
0469 24 £E1 004D 18 BBC #DAPS ~GEQ_V56, (R95, 70$ ; Branch if partner uses DAP before V5.6 
0051 184 60$: SSETBIT #DAP$V_DEV,R1 3; Send DEV 
01F6 C8 91 0055 185 70$: CMPB FAL$B_ACCFUNC(R8),- ; Branch if create function 
02 0059 186 #DAPSR_CREATE ; 
of 13 OOSA 187 BEQL 80$ 3; oF ; 
07 69 ‘ E1 ORE 138 BBC #DAPSV_GEQ_V54,(R9),80$ ; Branch if partner uses DAP before V5.4 
51 001F0000 8F c8 ¥¢ 1 BISL2 #<<DAPSM_LRL>!- ; Send LRL, HBK, EBK, FFB, and SBN 
006 190 <DAP$M_HBK>!- : fields 
0067 191 <DAPS$M_EBK>!- 3 
0067 136 <DAPSM_FFB>!- : 
Ber 19 <DAP$M_SBN>!- : 
067 194 >, : 
56 51 00 0067 195 80S: MOVL R1,R6 ; Save the send field flags | ; 
FF93" 30 05 138 BSBW FALSCVT_BN4_EXT ; Store ATTMENU as an extensible field 
06D 138 s* : ; ; ae 
aDep 300 3 Now store the designated fields in the order specified by ATTMENU. 
6D 201 ° 
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FACSENC DE T : SEP=1984 01: . 3) 
05 56) (0 1 006D 0 BSC #DAPSV_DATATYPE,R6,100$ ; 
83 O1F4 C 50 $9) 68 MOVB = FAL$B_DATATYPE (RB) (Ra)+: Store DATATYPE field 
83 1D AA 90 076 04 100$: MOVB  FABSB-ORG(R1 ) (RS) : Store ORG field 
83 1F AA 90 7A 05 MOVB FABSB_RFM(R10),(R3)+ ; Store RFM field 
0A 69 26 £0 0085 86 BBS #DAP$T_GEQ_V70,(R9),110$; yy 4 _pertaer uses DAP v7.0 
04 1F AA 91 O08 08 CMPB ragse. RFM(R10) , #FABSC _sth; is rekie te ternet valid for DAP 
046 #18 8 8 09 BLEQU§ 110$ 3 yoreres 6.0 or earlier? 
FF AS 00 90 008 10 MOVB #F ABSC_UDF ,-1(R3) s ifn sey format is undefined 
83 1E AA 90 O08C 1 110$: MOVB  FABS$B_RAT(R10), (R3)+ i Store “eat eld 
0A 69 34 €0 0090 ; BBS #DAPSU_VAXVMS,(R9),120$ ; Branch if hs ae is VAX/VMS 
04 FAA 91 009% CMPB FABSB_ REM(R105 ,#FABSC Sth; sBranch if not stream format 
04 12 0098 4 BNEQ 120$ j 
FF AS 10 90 QO9A 215 MOVB MDAPSM_EMBEDDED,-1(R3) ; If it is, say cc is embedded 
04 56 04 €1 O09 6 120$: BBC #DAPSV-BLS,R6, 130$ ; 
83 3C AA BO OOA 7 MOVW FABS$W_BLS(R105,(R3)+ : Store BLS field 
83 36 AA BO O0A6 8 130$: MOVW FABSW_M Bee as tases 3; Store MRS field 
51 10 AA DO OOAA 9 MOVL FABSL-ALQ(R10) ,R1 ; Get ALQ value 
FF4F* 30 QOAE 0 BSBW FALSCVT_BN4_IMG ; Store ALQ as an image field 
04 56 O07 #€1 00B1 1 B #DAPSV_BKS,R6,140$ ; 
83 36 AA 90 00B5 : MOVB #FABS$B _BKS(R10),(R3)+ : Store BKS field 
04 56 08 £1 0089 140$: BBC #DAPSO_FSZ,R6,150$ : 
83 3F AA 90 OOBD 4 MOVB FABSB_FSZ(R105,(R3)+  : Store FSZ field 
07 56 09 €1 00C1 5 150$: BBC #DAPSV_MRN,R6, 160$ : 
51° 38 AA bo 005 4 MOVL FABSL_ARN(R105,R1 : Get MRN value 
FF34"° 30 00C9 7 BSBW FAL$CVT_BN4_IMG : Store MRN as an image field 
83 14 AA BO pace 3 160$: MOVW FABSW NDEQCRTO) © (R3)+ 3; Store DEQ field 
00D0 0 ;+ 
0000 1 ; In constructing the DAP FOP field, take advantage of the fact that 
00D0 § ; RMS-32 may yy | only the CTG, CBT, RCK, and WCK bits on SOPEN (none 
00D0 3; are modified on SCREATE). 
oop0 535° 
2 01F8 C8 D0 O0D0 6 MOVL FALSL FOP(R8) ,R2 ; Get partner supplied FOP bits 
52 0080C080 8F CA 00D5 7 BICL2 #<<DAP$M_CTG>! ; Clear bits that may have changed 
00DC 8 <DAP$M_CBT>!- : 
OODC 9 <DAPSM_RCK>!- : 
00DC 0 <DAPSM_ WCK>!- : 
00DC 1 0>,R2 3 
51 04 AA D0 O0DC 2 VL FABSL _FOP(R10) .R1 5 ob FOP bits returned by RMS 
000 3 S$MAPBIT FABSV~CTG, DAPS$V_CTG : Map CTG bit 
00E8 4 SMAPBIT FABSV_RCK,DAPSV_RCK . Hep RCK bit 
Bore 5 SMAPBIT FABSV-WCK,DAPSV-WCK ; Map WCK bit 
08 69 E1 F8 § C #DAPSO_VAXVMS,(R9),.170$ ; Branch if ‘pertner is not VAX/VMS 
OOFC SMAPBIT FABSV_CBT,DAPSV_CBT : Map CBT bit 
DO 0104 8 170$: MOVL oR 3; Move data to correct register 
30 Biba 3 BSBW FALSCVT_BN4_EXT ; Store FOP as an extensible field 
Bin 1 3¢ . 
10A ¢ ; Map and store the DEV field. 
S10A Sak 
03 56 fo 010A 5 pes #DAPSV_DEV,R6,180$ ; Determine if this field should be 
1 Q1 ‘ 6 BRW $ ; _included in message 
DO 011 7 180$: MOVL FABSL_DEV(R10),R1 ; Get DEV bits returned by RMS 
D4 0115 8 CLRL R2 ; Clear corresponding DAP bits 
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0117 59 SMAPBIT DEVSV_REC,DAP$V_DEVREC ; Map REC bit 
11F 60 SMAPBIT DEVSV_CCL,DAP$V_DEVCCL ; Map CCL bit 
127 261 SMAPBIT DEVSV-TRM,DAPSV-DEVTRM ; Map TRM bit 
12F $¢ SMAPBIT DEVSV_DIR,DAPSV_DEVDIR ; Map DIR bit 
0137 6 SMAPBIT DEVSV_SDI,DAP$V_DEVSDI ; Map SDI bit 
4 F 64 SMAPBIT DEVSV_SQD,DAPS$V_DEVSQD ; Map SQD bit 
147 65 SMAPBIT DEVSV_SPL,DAP$V_DEVSPL ; Map SPL bit 
014F 66 SMAPBIT DEVSV_NET,DAPSV_DEVNET ; Map NET bit 
0157 67 SMAPBIT DEVSV_FOD,DAPSV_DEVFOD ; Map FOD bit 
O15F 68 SMAPBIT DEVSV_SHR,DAPSV_DEVSHR ; Map SHR bit 
0167 69 SMAPBIT DEVSV_GEN,DAPSV_DEVGEN ; Map GEN bit 
O1¢F 70 SMAPBIT DEVSV_AVL,DAPSV_DEVAVL ; Map AVL bit 
0177 71 SMAPBIT DEVSV_MNT,DAPSV_DEVMNT ; Map MNT bit 
017F es SMAPBIT DEVSV-MBX,DAPSVDEVMBX ; Map MBX bit 
0187 27 SMAPBIT DEVSV-DMT,DAPSV-DEVDMT ; Map DMT bit 
018F sie SMAPBIT DEVSV_ELG,DAPSV_DEVELG ; Map ELG bit 
0197 275 SMAPBIT DEVSVIALL.DAPS$V-DEVALL : Map ALL bit 
019F 276 SMAPBIT DEVSV_FOR,DAPSV_DEVFOR ; Map FOR bit 
Q1A7 —s_ 277 SMAPBIT DEVSV_SWL,DAPSV_DEVSWL ; Map SWL bit 
O1AF 278 SMAPBIT DEVSV_IDV,DAPSV_DEVIDV ; Map IDV bit 
01B7 279 SMAPBIT DEVSV_ODV,DAP$V_DEVODV ; Map ODV bit 
O1BF 280 SMAPBIT DEVSVIRND.DAPS$V-DEVRND : Map RND bit 
01C7 281 SMAPBIT DEVSV_RTM,DAPSV_DEVRTM ; Map RTM bit 
O1CF see SMAPBIT DEVSV_RCK,DAPSV_DEVRCK ; Map RCK bit 
01D7 = 28 SMAPBIT DEVSV_WCK,DAPSV_DEVWCK ; Map WCK bit . 
51 52 DO ODF 284 MOVL R2,R1 ; Move data to correct register 
FE1B’ 30 Bice aH BSBW FALSCVT_BN4_EXT ; Store DEV as an extensible field 
O1E5 287 ;+ 7 2 : 
piee +43 ; Store fields derived from the File Header Characteristics XAB. 
O1E5 290 ° 
22 56 «610 €1 Q1E5 291 190%: BBC #DAPSV_LRL,R6,2008 ; LRL implies 5 FHC fields (shortcut) 
57. 02F4 CB DE OES $36 OVAL FALSL_FHCXAB(R8) ,R7 ; Get address of FHCXAB 
83 OA A? BO OEE 29 MOVW  §XABSWILRL(R7),(R3)+ > Send LRL 
51 0c A? 00 OIF 294 MOVL XABSL_HBK(R7) ,R1 ; Get HBK value . 
FEO7" 30 O1F6 295 BSBW FALSCOT_BN4_IMG ; Store HBK as an image field 
51 10 A? DO O1F9 296 MOVL XABSL_EBK(R7),R1 ; Get EBK value ; 
FEOO" 30 8300 44 BSBW FALSCOT_BN4_IMG ; Store EBK as an image field 
83 14 A7 BO 0200 98 MOVW XABSW_FFB(R7) , (R3)+ ; Send FFB 
51 28 A? be 0204 99 MOVL XAB$L_SBN(R7) ,R1 ; Get SBN value ; 
FDF5* 30 0208 00 BSBW FALSCOT _BN4_IMG ; Store SBN as an image field 
FDF2" 30 0208 01 200$:  BSBW FALS$BUICD_TAIL ; Finish building message 
05 O20E 02 RSB ; Exit 
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ENCODE_NAM 


ALS 
0000 ALSCODE NOSHR,EXE,RD,NOWRT BYTE 


++ 
Functional Description: 
FALSENCODE_NAM builds the DAP (resultant) Name message. 


FALSENCODE_NAM1 builds a DAP Name message as directed by input 
parameters. 


Calling Sequence: 


BSBW - FALSENCODE_NAM 
BSBW  - FALSENCODE-NAM1 


Input Parameters: 
R8 Address of FAL work area 
R9 Address of DAP control block 
R10 Address of FAB 
R11 Address of RAB 
And for FALSENCODE_NAM1 only: 
R5 Name type value — 
R6 Size of name string to use 
R7 Address of name string to use 
Implicit Inputs: 
For FALSENCODE_NAM only: 
FABSL_NAM 
NAMS$B_RSL 
NAMSL_RSA 
Output Parameters: 
RO-R7 Destroyed 


Implicit Outputs: 


NOUS WN O ODNAU EWN 0 OONOAU EWN $0 ODNOUSWN-OOONO 


Be Oe Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Se Ge te Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se 


None 
Completion Codes: 
None 
Side Effects: 

None 


Se a Dien Dio Dee De Die Bie i Die Bie Rs Bi Dien De Bee Bee en Bi Bis en Bi Bi Be Be Be Bi i De Bs Be Bie Bes Bs Be Bes De Be Des Bes Be Bes Dns De Die Des Be Ds Be De Bes Be Ds es Be es De | oo 
m 
PUPP PVT BS BS BS BS BB BE EWAN ANI NIAAA AIAN PIPUDINIPINIDY 2 2 OO OS SS QOOOOO 
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WNAAA AAA. AAA AAA AW AIAN AAI NAINA AIAN IAAI AANA AI 


SOOCONAOUES WOO 


FALSENCODE_NAM: : ; Control point 
MOUZBL #DAPSM_FILSPEC,RS ; Get name type parameter 


al 
w 
oO 
a 
oO 
Pd 
o 


E 
FALBLDATT - BUILD DAP ATTRIBUTES MESSAGE 16-SEP-1984 01 
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50 0294 (8 DE 18 61 MOVAL FALSE NAM(RB) ,RO ; 

09 6 08 E1 021 6¢ BBC #FALSO_NEWNAM,(R8),10$ : 

50 0850 CB ODE 18 6 MOVAL FAL : Raw? (RBS RO : 

64 SCLRBIT #FALS$O_NEWNAM, (RB) : 

56 03 AO 9A 4 365 10$:  MOVZBL NAMS$B_RSL(RO).R6 ; 

57 04 a0 00 0 : 66 MOVL  NAMSLIRSA(RO).R7 : 

022C 368 FALSENCODE_NAM1:: ; 

50 OF be 022C 69 MOUL #DAPS$K_NAM_MSG,RO é 

ia 0 O22eF 70 BSBW FAL$B TLD_READ 3 

oS. CS 90 g 71 MOVB R5,(R3)+ 3 

83 36 30 ; cg MOVB_ R6,(R3)+ : 

63 67 56 ‘ 8 37 MOVC3 R6,(R7),(R3) : 

FDC" 0 023C 74 BSBW FALSBUILD_TAIL ; 

05 O23F 375 RSB ; 

0240 376 
0240 377 END : 


:38 
:16 
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Get address of Name block 

If sending 2nd Name message (rename 

efeeret ren? use address of NAM2 block 
ear fla 

<R6,R0> s reeultent name string 

parameter 


Control point (with R5-R7 setup) 


; Get message type value 


Construct message header : 
Store name type as an extensible field 
Store filespec as an image field 

Copy name string into message 

Aa te building message 


End of module 


FALBLDATT 
Symbol table 


DAP$B_LENG 
DAPSB_NAME TYPE 
AP$B_ORG 
DAPSB_SHR 
DAPSB_STREAMID 
DAPS$B_TYPE 


DAPSL— 
DAPSL AT TMENU 
DAPSL—~CMWA 
DAPSL-CRC_RSLT 
DAPSL_DCODE_STS 


DAPSL~HBK 
DAPSL_MRN 
DAPSL—~MSG_MASK 
DAPSL 


DAPS$M_DEQ1 

DAP Sa Dr TSPEC 
DAPSM_DSP_3NAM 
DAPSM_EBK 
DAPSM_EMBEDDED 
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- BUILD DAP ATTRIBUTES MESSAGE 


DAPSM_WCK 


DAPS$Q_ 

DAPSQ_NAMES 
DAP$Q_PASSWO 
DAP$Q_RUNSYS 
DAPSO_S¥SPEC 


DAPSV~CTG 
DAPSVDATATYPE 
DAPS 


DAPS$V~DEVRND 
DAPSVDEVRTM 
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FALBLDATT - BUILD DAP ATTRIBUTES MESSAGE i at 9 ETH EPALLSRCIPALBLDATT MAR; 1 | 
L table s 
Symbo 5 4 FABSC_UDF = 68 | 
DAPSV_DEVSD1 = 890000 FABSC_VFC : ; | 
DAPSVDEVSHR = BooopooS FABSL-ALG - 18 | 
DAPSV~DEVSPL a 444 FABSL-DEV = Bopp oes | 
DAPSV~DEVSQD = Bop S pone FABSL-FOP = 280000 | 
DAPSV~DEVSWL boob hohe FABSL~MRN | Ronn OTe | 
DAPSV~DEVTRM = 0000001 FABSV_CBT = 00 a0 14 | 
DAPSV“DEVWCK = 90000 08 FABSV-RCE = 00000017 | 
DAP$V_GEQ_V54 = 000000 4 FABSV_WCK . te 4 
DAPS$V_GEQ_V 6 = 00000026 FABSW_BLS » 14 
DAP$V_GEQ_V70 = 0000001 FABSW_DEQ = $0000036 
DAPSV“LRL = 80008808 FABSU"MRS seseesss X02 
DAPSV_MRN = 0000000F FALSBOILO_H teeeeeee X02 
DAPSV-RCK = 90000086 FALSBUILD-TAIL 9000016 | 
prey aati = Sonn pe ei seebr 
- 0000004 a 000001F 
DAPS$W_BLS 00000054 FAL$B_DATATYPE 00000006 
DAPSW~DEQ! 0000004¢ F AL$B-DISABLE 90000008 | 
DAPS$W_DISPLAY1 FALS$B_ENABLE 
DAPSWIFFB §0000070 FAL$B~LOGGING 4444 4 | 
pareu LM, 0000004A PALSB_AISCOPT 000001F7 | 
BAER Pave $8888 EE aca S3983¢ | 
DAPSU_VERSION = 00000017 FALSB-WANOE oe 90000010 | 
DEVSV-AVL = 99000001 FALSCOT_BNG_EXT seenen 2a | 
DEVSV~CCL = 00000003 FALSCVT BNG IMG 00002000 | 
DEV$V_DIR = 00000015 FALSC_WRKBLA 00000000 RG = 02 
DEVSV_DAT = 00000016 FALSERCODE_ATT QOO0020F RG 02 | 
DEVSV~F OD = 090000 F ALSENCODE NAMI ponggeee Re 02 
- = 0000001 | 
EVSV"F . FALSK_WRK | 
suit = He EE si 
- = 00000 : NXT | 
DEVSV~MBX = 00000013 FALSL-CHAIN 00000526 | 
DEVSV_MNT = 00000000 FALSLIDATXAB 00000200 | 
DEVSV_NET = 00000018 FALSL FAB 00000800 | 
DEVSV_ODV = 0000001E FALSL_FAB2 000002F4 | 
DEVSV-RCK = 00000000 FALSL~FHCXAB DOOTES | 
DEVSV_REC = 0000001C FALSL_FOP 0000100 
DEVSV_RND = 0000001D PALE VRS 90001000 
DEVSV_RTM : 90000004 FALSL_KEYXAB 000078 
DEVSV~ = 00000016 FALSL-KEYXABINI ee th 
DEVSV_SHR = $00000 FALSL_NAM 00000850 
DEVSV_SPL = 90000008 FALSL_NAM2 000001FC 
DEV$V~SQD = 00000019 FALSL_NUMBER 0000034¢ 
DEVS$v_s = 00000002 FALSL _PROXAB 0000250 
$V~TRM FALSL-RAB " 
DEVSV"UCK = boponse FALSL-RCVBUF 09000 3 
$87 = BORO RTE FALSL-RDTXAB 4 bg 
FABSB~F SZ = Bono ooTD FALSL-RMS_PTR a tsa 
F ABSB-ORG = Boop SO TE FALSL-STB tha 
rey = sat Hee sie 
pig ek ree ee se 
FABSC_STM = 00000008 


FALBLDATT 
Symbol table 


FALSL_USE_VER 
FAL$Q_BLD 
FALSQ"DIRNAME 
FAL$Q—F ALLOG 
FALS$Q_FLG 
FALSQ"MBX 
FAL$Q_MBXI0SB 
FALSQ_RCV 
FALSQ_RCVIOSB 
FALSQ 


- BUILD DAP ATTRIBUTES MESSAGE 


_” a ts Sa 9 8 
~SEP=1984 


1 
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8:37 


1 


AG 
0 4 
$088 
® 064 
FALSQ_STATE_CTX 00 444 
FALSQ_SYSNET 8 $9 
FALSQ_TEM 0 8 F 
FALSQ_VOLNAME 0000080 
_XMT 4444 ed 
FALSQ_XMTIOSB 0 4 
_DAP 00000100 
FALST_DIRNAME 4 dha 4 
FALST_EXPAND 00000500 
FALST_EXPAND2 00000A00 
FALS$T_FALLOG 00001C00 
FALST_FILESPEC 00000400 
FALST_FILESPEC2 00000900 
FALST_KEYBUF 00000700 
FALST_MBXBUF 00001980 
FALST_PRTBUF 1 00001A00 
FALST_PRTBUF 2 00001B00 
FALST_RESULT 00000600 
FALST_RESULT2 00000800 
FALST_SYSNET 00001D00 
FALST_VOLNAME 00001E00 
FALSV_NEWNAM = 00000008 
F AL $W_DAPBUF S12 9000018 
FALSW_DISPLAY 0000070 
~LNKCHN 000001C 
F AL $W_MBXCHN 0000001 
_Q10BUF $12 0000001 
FALSW_RECEIVED 0000007 
F USE _DBS it Q0A 
FALSW_USE_SYS 00000A 
RSL = O05 000 
URSA = 00000004 
eee ree = 00000010 
= 
XABS$L_SBN = $608 
XABSW_FFB = 00000014 
XABSW_LRL = 0000000A 
¢eeeeeoeeoceccec] > 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. _ABS 6 6° ( g-} 0¢( 0.) NOPIC USR CON ABS~ LCL NOS 
SABS$ ( 8192.) 01 ¢ 1.) NOPIC USR CON ABS~ LCL NOS 
F ALSCODE 0000240 (« 576.) 02 ¢ 2.) NOPIC USR CON REL LCL NOS 


AX/VMS Macro v04-00 


FAL.SRCJFALBLDATT.MAR; 1 


HR NOEXE NORD NOWRT NOVEC BYTE 
HR EXE RD WRT NOVEC BYTE 


HR EXE 


RD NOWRT NOVEC BYTE 


16-SEP-1984 01:38: AX/VMS Macro vV04-00 ba 
Set) eT eae CHARS TT ETE eee TORE ait 


FALBLDATT 


- BUILD DAP ATTRIBUTES MESSAGE 
VAX=11 Macro Run Statistics 


$e wr ene eres ecae WOM aeweaaan > 


Performance indicators ! 


' 
+ woe ne wee mee mm oo oe enmemae + 


Phase Page faults CPU Time Elapsed Time 
Initialization ra) :00:00.05 0:00:01.53 
Command processing 166 $080; 80: 99 00:00:01-34 
Pass 319 0: 8 00:00:35.18 
Symbol table sort 0 0:00:01.01 00:00:03.04 
Pass 2 8 8: 8: 1.47 BB ?20: 83-80 
Symbol table output :00:00.15 :00:00.81 
Psect synopsis output 1 00:00:00.03 00:00:00.02 
Cross-reference output § bs Bk 00:80 :09.00 
Assembler run totals 57 00:00:11.0 00:00:47.54 


The working set_Limit was 1500 pages. 

64978 bytes (127 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1 non-local and 56 local symbols. 
7 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

22 pages of virtual memory were used to define 21 macros. 


Geeeceoeoeeesoeseecescoecee$ 


! Macro Library statistics ! 
gece m were e seo ame neo ee ec eecee + 


Macros defined 
$255$DUA28:CFAL.OBJJFAL.MLB;1 9 
$255$DUA28:CSYSLIBISTARLET.MLB;2 9 
TOTALS (all Libraries) 18 


1354 GETS were required to define 18 macros. 


Macro Library name 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:FALBLDATT/OBJ=OBJ$:FALBLDATT MSRC$:FALBLDATT/UPDATE=(ENHS$:FALBLDATT) +LIB$:FAL/LIB 
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